home *** CD-ROM | disk | FTP | other *** search
/ Risc World 3 / Risc World 3.iso / SOFTWARE / ISSUE4 / ZAP / !Zap / Modules / !ZapJRF / Scripts / HTML / Footer < prev    next >
Text File  |  2002-05-08  |  411b  |  32 lines
  1. | Place a footer in HTML mode
  2. CDOWN
  3. | Find the end </body> tag
  4. SEARCHBACK "</body>"
  5. UNIVERSALARG "18"
  6. LEFT
  7. #IfText "</address>"
  8.  CRIGHT
  9.  DOWN
  10.  CLEFT
  11.  SELREGION
  12.  SEARCHBACK "<address>"
  13.  CLEFT
  14.  UP
  15.  SELREGION
  16.  CUT
  17. #Else
  18.  CDOWN
  19.  SEARCHBACK "</body>"
  20.  UNIVERSALARG "7"
  21.  LEFT
  22.  #IfText "</body>"
  23.  #Else
  24.   CDOWN
  25.   RETURN
  26.   INSERT "</body>"
  27.   CLEFT
  28.  #EndIf
  29. #EndIf
  30. INSERTFILE "*<ZapInserts$Dir>.HTML.Footer"
  31. UPDATEWINDOW
  32.